home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 20 / 020.d81 / picture show (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  548b  |  21 lines
  1. 0 poke53280,0:poke53281,0
  2. 1 poke249,32:poke250,4
  3. 2 poke251,0:poke252,64
  4. 3 poke253,0:poke254,0
  5. 5 print"[147]loading the picture show!":poke53280,0:poke53281,0
  6. 6 iflf=0thenlf=1:load"unpacker",8,1
  7. 25 ifx>0thenprint"[147]":sys51459
  8. 30 ifx=0thenpoke52084,1:forp=0to24:poke54272+p,.:next:goto100
  9. 40 sys51456:sys51459:                      rem plot/display
  10. 50 :
  11. 100 ifx=0thenx=1
  12. 105 ifx=1thenx=2:load"pic a.shp",8,1
  13. 110 ifx=2thenx=3:load"pic b.shp",8,1
  14. 120 ifx=3thenx=4:load"pic c.shp",8,1
  15. 130 :
  16. 140 :
  17. 150 fordl=1to2500:nextdl
  18. 170 sys51459: rem  turn all off
  19. 180 print"[147][204]aunching [212]able of [195]ontents"
  20. 190 load"hello connect",8
  21.